10 SYS 32168
20 :
30 DIM D$(30)
40 FOR I=1 TO 30
50 D$(I)="MENUEPUNKT"+STR$(I) :PRINT SPC(13);D$(I);
60 NEXT I
70 :
80 (null)1,4,15,20,35,1,0,"MENU-DEMO"
90 (null)1,6,128
100 (null)1
110 :
120 M=20
130 (null) D$(1),D$(30),0,128,12,1,M
140 (null)
150 :
160 IF M=0 THEN (null) 12,1,"AUSSTIEG" :END
170 (null) 12,1,"GEWAEHLT: "+D$(M)